@ECHO OFF
REM zip_to_7zip_subfolders_and_delete_fast.bat - find all .zip and .rar files in the current directory and all subfolders, extract them, recompress them into 7zip files, and then delete the originals if a 7zip file exists.

set ROOTDIR=%CD%

REM Disable echoing of commands to improve performance
@ECHO OFF

REM Function to extract and compress files
:extract_and_compress
FOR /R "%ROOTDIR%" %%F IN (*.rar *.zip) DO (
    START /B CMD /C (
        "C:\Program Files\7-Zip\7z" x "%%F" -o"%%~dpnF_contents" -y -aoa > nul
        "C:\Program Files\7-Zip\7z" a -t7z -m0=lzma -mx=9 -mfb=64 -md=32m -ms=on "%%~dpnF.7z" "%%~dpnF_contents\*" -y -aoa > nul
        DEL /F /Q "%%F" > nul
        RMDIR /S /Q "%%~dpnF_contents" > nul
        ECHO Extracted and recompressed %%F to %%~nF.7z and deleted %%F.
    )
)
EXIT /B

REM Function to delete original archives
:delete
FOR %%F IN (*.rar *.zip) DO (
    START /B CMD /C (
        IF EXIST "%ROOTDIR%\%%~nF.7z" (
            DEL /F /Q "%%F" > nul
            ECHO Deleted original archive %%F.
        ) ELSE (
            ECHO Cannot delete %%F, no %ROOTDIR%\%%~nF.7z file found.
        )
    )
)
EXIT /B

REM Run extraction and compression, then deletion, in parallel
CALL :extract_and_compress
CALL :delete

ECHO All processes initiated. Waiting for completion...

REM Wait for all processes to complete
WAIT

ECHO All processes completed.

pause
